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INTRODUCTION 


A. Congratulations 
Congratulations on your recent purchase of the COMMODORE 
1520 Four Color Printer Plotter. You have added an 
exciting new dimension of versatility and convenience to your 
COMMODORE computer system. This manual is intended to 
introduce you to your new Plotter. It includes all the 
information necessary to help you..: 


— Learn the names and functions of all external parts 
— Install your Plotter 

— Connect the Plotter to your computer 

— Operate and maintain your Plotter 

— Write programs for your Plotter 


In the process of showing you how to use your new Plotter, 
this manual assumes that you are familiar with the 
COMMODORE BASIC computer language. To get the most out 
of this manual, it is suggested that you continue to refer to 
your computer's USER’S GUIDE and PROGRAMMER’S 
REFERENCE MANUAL. 


B. Plotter Features 
Your new Printer Plotter is a 4 color X-Y coordinate plotter. 
The X-axis extends across the width of the paper. The Y-axis 
runs vertically up and down the paper. Actual printing 
(plotting) is accomplished by combining movement of the pen 
carriage assembly horizontally across the paper with vertical 
paper movement. It is capable of high accuracy plotting with a 
resolution of 0.2mm. All printing is done with four ball point 
pens. The pen carriage assembly holds the 4 pens and allows 
the different colors to be rotated (one at a time) into position 
for printing. 
Your Printer Plotter has the following features: 
— Standard VIC serial interface to allow easy connection 
to other COMMODORE computer peripheral devices 
—Plotting/printing in four colors for a wide variety of 
plotting applications 
— High resolution plotting with traces as smail as 0.2 mm 
per pen movement (step) for accurate plots 


—Up to 80 characters per line (upper and lower case) in 
four sizes (10, 20, 40 and 80 characters per line) for 
flexibility in lettering plots or producing high quality 
general prints 


Your Printer Plotter is designed to connect directly into your 
computer through the Seria! Port (6 pin connector). It can be 
used with up to 4 VIC-1541 floppy disk drives. These units are 
connected to the computer by “daisy chaining” the devices 
together — each successive unit is plugged into the last unit 
connected to the computer. If you have a ViC-1525 Graphic 
Printer it will have to be disconnected while you are using your 
Plotter. Both printers have a single bus connection and 
therefore must be the last device on the daisy chain. 


Customer Support 

Please check with your local COMMODORE dealer, 
COMMODORE User’s Magazines and COMMODORE and 
POWER/PLAY Clubs for additional support for your new 
Plotter. They can also keep you informed about possible 
applications programs written for your Printer Plotter. 


SECTION 1 


Setting up Your 
Printer Plotter 


A. Setting Up Your Printer Plotter: 


Here is the suggested checklist procedure to follow prior to using 
your printer plotter. 


1. After carefully unpacking your plotter, set the unit on a flat 
surface. 


2. Retrieve the two roll shaft brackets and roll shaft. 
3. Raise the Printer Mechanism Cover. 


4. Insert the roll shaft brackets in the two grooves at the rear of the 
plotter housing. 


5. Place the roll shaft on the slots of the brackets. 
_ Lower the Printer Mechanism Cover. 
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1520 Printer Plotter Physical Characteristics: 
Front and Top View 


Please note the following locations for the 1520 features: 
@ ON-OFF switch is on the right side of the plotter housing. 


® Three functional bar switches and power indicator light are 
located on the face of the plotter housing. The bar switch on the 
left is for manually advancing the paper. The middle switch 
manually rotates the Pen Carriage, bringing the next color pen 
into writing position. The switch on the right sets the plotter 
mode for either insertion or removal of the color pens. 


(RS) Roll Shaft 
(PG) Paper Guide 


RSB (Roll Shaft Bracket) 
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— (PMC) Printer Mechanism Cover 
(PI) Power Indicator LED 

(PC) Pen Change Switch 

(CC) Color Change Switch 

(PF) Paper Feed Switch 


CC - Color Change Press this switch and the next 
color pen is rotated into printing 
position. The pen carriage will 
move to the left side to change 
colors. 


Cc. 


PC - Pen Change 


PF - Paper Feed 


PI - Power Indicator 


PMC - Printer Mechanism 
Cover 


The Printer Mechanism: 


- Press this switch to insert or 


remove plotter pens. Refer to 
SECTION 2 Part C for pen 
loading/unloading instructions. 


- Press this switch when you want 


to manually feed paper through 
the Plotter. 


- ON/OFF Power Indicator. 
- Cover should be kept in place to 


keep the print mechanism clean 
and help control paper movement 
for accurate plots. 


Remove the Printer Mechanism Cover and lift the Paper Roll 
Cover so that you can familiarize yourself with the internal 
parts of your Plotter. It is very important that this area be kept 


clean. 


PCA PPG 


PCL 


PPG - Platen and Paper Guides - The platen is the long black 


PCA - Pen Carriage Assembly 


rubber roller. The paper guides 
are the small brass wheels 
located at each end of the 
platen. Refer to SECTION 2 
Part B for paper loading 
instructions. 


- The pen carriage assembly 


holds four pens. Each of the 
four_pen slots is marked with 
the color of the pen to be 
inserted in the slot. Refer to 
SECTION 2 Part C for pen 
loading and unloading 
instructions. 


PCL - Pen Change Lever - Pressing this lever will cause 
_ the pen in printing position to 

be ejected from the Pen 
Carriage Assembly. It is used 
for removing and inserting the 
pens. Refer to SECTION 2 Part 
C for pen loading and 
unloading instructions. 


Back View: 


Turn your Plotter around so that you can look at the back of 
the unit as shown below. On the left side you will see the fuse 
holder and power line connection. On the right, you will see 
the serial interface jack used to connect the unit to your 
computer. 


AC 
Power 
Connection 


Serial 
Interface 
Connector 


FH - Fuse Holder - Refer to SECTION 2 Part G. 


PL - Power Line Connector - Use the power cord supplied 
with your Plotter. Refer to 
SECTION 2 Part D for 
complete connection instructions. 


SI - Serial Interface (jack) - This jack is used to connect 
your Plotter to the computer. 
Use the Serial Interface cable 
supplied with Plotter. Refer to 
SECTION 2 part D for 
complete connection instructions. 


SECTION 2 


Preparing to Use Your 
Printer Plotter 


A. Installation Considerations: 


In order to make your 4520 Plotter as trouble free as possible, 
please review the following list of precautions before setting 
up your new Plotter: 


1. Always place your plotter on a flat surface. 

. Keep the ventilation holes free from any blockage. 
. Keep the machine as dust free as possible. 

. Do not place it in direct sunlight. 

. Do not apply extreme pressure to any part. 

_ Avoid rooms with high humidity. 

_ Avoid rooms with extremes in temperature. 


_ Always put the caps back on the pens when you are not 
using them. 


On nar wh 


B. Paper.Loading 


Use only roll paper recommended and supplied by your local 
COMMODORE dealer: 
Roll Paper Part Number: 1520030-01 


Width: 114 millimeters (41% inches) 
Thickness: 70 microns 
Roli Diameter: 70 millimeters (maximum) 


Be very careful while loading a roll of paper into your new 
Plotter. The paper installation procedures requires you to work 
around delicate parts. Follow the installation procedure 
exactly: 


1. Remove the Printer Mechanism Cover (PMC) and the Paper 
Roll Cover (PRC). 


2. Install the roll of paper into the lower paper tray between 
the two arms by first inserting the paper spindle in the 
middle of the paper roll. Lower the ends of the spindie into 
the notches in the paper Support arms. The paper must feed 
off the bottom of the roll towards the front of the plotter. 


3. Carefully insert the edge of the paper into the slot at the 
back of the print mechanism. 


4. With your thumb on the center of the platen, gently rotate 
the platen in an upwards direction until the paper is in 
place. You will notice a tiny brass wheel located at each 
end of the platen. The paper must be positioned between 
these wheels and the platen roller. 


5. Replace the Printer Mechanism Cover (PMC) and the Paper 
Roll Cover (PRC). 


NOTE: The paper roll must be able to turn freely. 


Pen Loading, Removal, and Replacement 


In order to remove or replace pens, the Plotter must be 
connected to the computer and both units must be turned on 
-OR- the Plotter must be disconnected from the computer and 
turned on. The following sequence of instructions shows you 
how to use the bar switches and the pen change lever to 
remove or replace pens: 


6 te pen eject lever 


+. Remove the Printer Mechanism Cover (PMC). 


2. Press the Color Change switch (CC) until the desired pen is 
at the top of the pen carriage drum. The pen carriage will 
travel to the left side of the platen. 


3. Press the Pen Change switch (PC). The pen carriage will 
move to the right side of the platen. 


4. Press the Pen Change Lever (PCL) to lift the rear of the pen 
out of the pen carriage drum guide slot. 


5. Hold the back end of the pen and remove it in an upwards 
direction. 


6. If you are replacing the pen, insert the new pen (same color) 
into the pen carriage drum guide slot with the tip facing 
downward and into the retaining spring. Press down the 
back of the pen until it snaps (lightly) into place. 


7. If you are removing the pen for storage, place the cap on 
the pen and store the pen ina safe place. 


_ To remove or replace the other pens, repeat steps 2, and 4-7 
above. Step 3 will not be necessary as the pen carriage 
drum will return to the right after pressing the Pen Change 
switch (PC). 


9. Replace the Printer Mechanism Cover (PMC). 


NOTE: Never force or try to rotate the pen carriage drum 
by hand. 
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D. Connecting your Plotter to the computer: 


In order for your computer to know what devices it can work 
with (printers, disk drives), each device must have its own 
address. Disk drives are normally given addresses of 8 to 15. 
Printers are normally given addresses of either 4 or 5. Your 
plotter has been given an address of 6. 


To connect your Plotter to the COMMODORE computer, 
please follow the instructions listed below: 


1. Make SURE the power to your computer is turned off. This 
applies to any disk drives you may have connected to your 
computer. 


2. Using the serial interface cable supplied with your Plotter, 
connect one end of the cable to the serial interface jack at 
the rear of the Plotter. The cable connector has a notch in it 
So that it can only be inserted one way. The pins should be 
positioned so that a slight pressure will seat the cable in 
the jack properly. You should not have to force the pins into 
the jack — to do so could damage both the cable and the jack. 


3. Refer to the SET UP Section of your USER’S GUIDE. Locate 
the serial port on the back of your COMMODORE computer. 
Insert the other end of the serial interface cable into this jack/port. 


If you are using 1 or more VIC-1541 Disk Drives, refer to 
Page 7 in the VIC-1541 USER’S MANUAL. Insert the other 
end of the serial interface Cable into the serial bus jack/port 
on the last disk drive in the daisy chain. 


If you are using the VIC-1525 Graphic Printer, it will have to 
be disconnected temporarily as only one printer can be 
attached to your computer at a time. Insert the serial 
interface cabie from your Plotter into the jack/port that you 
disconnected your VIC-1525 Printer from. 


4. Locate the power line cable Supplied with your Plotter. 
Carefully insert the jack into the power line connector on 
the back of the unit. It will only go in one way. Plug the 
other end into any grounded AC outlet. If the Plotter makes 
any Sound, please turn it off. 


NOTE: For information concerning the serial interface connector 
pin configuration, interface notes, and how to change the 
address of your Plotter, refer to APPENDICES D and E. 


Commodore 64 VIC 154] 
Personal Computer Disk Drive 


1520 
Printer Plotter 


(optional) 


E. Performing the “POWER ON?® test: 


The following test(s) will verify that your Plotter is working 
properly: 


4. Turn on the power to your Plotter, then, turn on the 
computer. The unit should draw 4 small boxes. From left to 
right, the boxes should be in the following color sequence: 
blue, green, red and black. 


| 
| L__—\ black 
= red 


a -_—_--— green 
—__-_____—— blue 
2. If this test fails, recheck all cable connections and try the 


above steps again. If the test still fails, contact your 
COMMODORE dealer. 


TTL 
| 


NOTE 1: You will find that none of the bar switches on your 
Plotter will operate if the unit is turned on, 
connected to the computer and the computer is 
turned off. The computer must either be turned on 
or the serial interface cable must be disconnected 
from the Plotter. 


NOTE 2: Every time your Plotter and computer is turned on, 
it will automatically perform the “Power On” test 
— the four boxes described in #2 above will be 
printed. 


F. Trouble Shooting: 
We hope you don’t have any problems with your Plotter. Just 


in case you do, however, see if you can solve the problem 
using the table below. If you still have problems, bring the 


Plotter into your COMMODORE dealer for repair. 


PROBABLE CAUSES 
PROBLEM & SOLUTIONS 


Plotter won’t print. Cause: Plotter is off. 

Power indicator ‘OFF’ solution: Check the power line 
connection and the power 
switch. 


Cause: Fuse may be blown. 
solution: Replace with a fuse of the 
same rating (300 MA, 125 V) 


Plotter won't print. Cause: Improper connection to 
Power indicator ‘ON’ computer. 
soiution: Check all cable connections. 


Cause: Improperly loaded pens. 
solution: Reload and adjust the pens. 


Plotter okay, paper Cause: Paper is jammed. 

won't advance. solution: Remove and reload the paper. 
Printed characters Cause: Wrong pens or pen setting. 
are too light solution: Readjust the pens. 

or smudging. 


Cause: Old or worn out pens. 
solution: Replace the pens. 


Plotting distorted. Cause: Paper probably not moving 

freely. 
solution: Since the plotter moves the 

Paper up and down to move 
along the Y axis, there must 
be sufficient slack and 
freedom of movement in the 
Paper feed mechanism. Try 
unwinding some Paper to form 
a loop just in front of the 
Paper roll. 


IMPORTANT: If you try to fix internal problems yourself by 
working inside your plotter, you may void your warranty. Take 
the plotter to your Commodore dealer for any necessary repairs. 
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G. Cautions: 


1. 


Wait at least two seconds to turn on the power after it is 
turned off so that the Plotter will be initialized properly. 


2. Never place the Plotter in direct sunlight. 


3. Never apply power while you are either plugging in or 


unplugging the serial interface connector. 


_ Never turn the power off while the Plotter is operating. See 


rule #8 below. 


_ Never try to move the pen carriage assembly manually when 


the power is either on or off. 


6. Never stop the pen carriage motion while it is printing. 


7. Never operate the Plotter without paper. The pen carriage 


assembly may be damaged. 


_ If a foreign object falls into the Plotter, turn it off 


immediately and remove the object. This situation is the 
only exception to rule #4 above. 
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A. 


SECTION 3 


Using Your Plotter 


Introduction: 


Now that you have learned how to insert the pens and Paper 
into your new Plotter, how to connect it to your computer, how 
to test it and how to correct any problems that may occur, you 
are ready for the next step — putting the 1520 Printer Plotter 
to work for you. 


In this section, you see how to use your Plotter to print 
Program listings and plot graphic displays. Before we go any 
further, make sure that you are able to do the following: 

1. Operate your COMMODORE computer. 

2. Write elementary programs in BASIC language. 

3. OPEN and CLOSE files. 
4 


. READ and WRITE files to various peripheral devices: (Like a 
tape cassette or disk drive for the purpose of 
Saving/retrieving programs keyed as you continue through 
the rest of this manual.) 


If you are not familiar with any of the above items, take the 
time now to check the USER’S MANUAL and 
PROGRAMMER’S GUIDE. 


B. BASIC COMMANDS associated with your Plotter. 
1. The OPEN Command: 


This command creates a linkage or correspondence 
between a given physical device and a file number. Its 
format is as follows: 


OPEN _ifn,dn,sa 


where: 


lfn 
Is the logical file number (any number from 1 to 255). 
If the logical file number is greater than 127, any 
printed lines will be double spaced. 


dn 
is the device number of the peripheral that will be 
sending/receiving the file. For the remainder of this 
manual, you will be using device #6, the address of 
your Plotter. 


sa 
Is the secondary address, a unique way of instructing 
your Plotter’s internal microprocessor to perform 
certain specific tasks. More about this important 
feature later. 


2. The PRINT# Command: 


This command works just like the BASIC PRINT command 
except that it directs the output to the Plotter instead of to 
the video screen. The abbreviation for PRINT# is pR 
(unshifted p and shifted R). There must be no space before 
the #, and spaces after the # are ignored. The format is as 
follows: 


PRINT # Ifn-< ,variable/data/command > 


where: 


lfn 
is the logical file number (any number from 1-255). 
This number must correspond to a given OPEN 
command. 


< variable/data/command > will be discussed in detail 
later in the manual. 


3. The CLOSE Command: 


Careful use of this command is important because you 
may only have a maximum of ten files open at any one 
time. Programming your Plotter May require that you keep 
several files open simultaneously. Always close files when 
you are finished using them. The format is as follows: 


CLOSE ifn 


where: 


lfn 
Is the logical file number of the file being closed. 
This number must correspond to a given OPEN 
command. 


4. The CMD Command: 


Good programming practice dictates never using this 
statement within a program: use this Statement in direct 
mode only. 


This statement transfers the primary output device (TV 
screen) to the logical file number specified in the 
command. The file must have been previously OPENed. 
When this command is in effect, all output generated by 
PRINT or LIST command will be sent to the file instead of 
the video monitor. The format of the command is as 
follows: 


CMD Ifn <, string > 


where: 


lfn 
Is the logical file number to receive the output. 


String (optional) when specified is sent directly to the 
file. This can be used as a handy way of printing titles 
on printouts. 


To re-direct the output back to the Primary output device, 
the PRINT# command must be used to send a blank line to 
the CMD device prior to closing the file. If a syntax error 
occurs, output will not be redirected back to the video 
monitor. Devices are not “unlistened” by this so you should 
PRINT# a blank line after an error condition. 


5. Command Examples 


OPEN 1,6,0 File#1, device#6, secondary 
address#0 

OPEN 2,6 File#2, device#6 

PRINT#1,““HELLO THERE” Print “HELLO THERE” on file#1 

PRINT#2," ” Print a blank line on file#2 

CLOSE1:CLOSE2 Close file#1 and file#2 


C. Plottable Area 
1. Plotting Direction 


Horizontal movements of the pen carriage are referred to 
as the X axis. Movement to the right of the left margin is 
represented as + X. 


Vertical movement is accomplished by moving the paper 
up and down. This movement is referred to as the Y axis. 
Movement upward from the center is represented by the 
+ Y and movement downward from center is represented 
by —Y. 


2. 


| 


Plottable Area 

Along the X axis: 96 mm (480 positions numbered 0 to 
479 separated by 479 steps) 

There is a 9 mm border on the left and right sides of the 
X plottable area, so that the actual paper width is 114 
mm. 

Along the Y axis: Programmable as desired (+/- 999 
positions numbered 0 to 998 Separated by 998 steps) 


Positions are defined as coordinate points, with steps 
being the spaces between the coordinate points. 


(0,998) (479,998) 


+Y 


999 positions 
x numbered 998 to 0 
separated by 998 steps 


~Y 999 positions 
numbered 0 to — 998 
separated by 998 steps 


—$_______ x 


480 positions 
numbered 0 to 479 
separated by 479 steps 


(0, — 998) (479, — 998) 
A WS 


|< _——96 mm ———_____- 
4 rm + 


The absolute center point of the plotting area is at 
coordinates (240,0). 


The Home position within the plotting area is at 
coordinates (0,0). 


NOTE: 
If your lines extend beyond the limits of the 
plotting area, the pen is automatically forced up. 


When the pen returns to the plotting area, it will 
remain in the up position until a new plot 
command is received. 
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3. Cumulative Error Along the Y Axis: 


Since paper is fed along the Y axis by means of frictional 
contact between rubber rollers, slight deviations in 

plotting accuracy may occur. This can be minimized by 
insuring that the paper advance mechanism doesn’t have 

to pull the paper off the roll. Unroll a small amount of 

paper such that a loop is formed in front of the paper roll. 
Keep the paper roll cover lifted up while the unit is operating. 
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D. Printing in the Direct Mode: 


Now that you have reviewed the BASIC commands you will 
need to handle files directed to your Plotter, let’s put them to 
use in some practical applications. The direct mode allows 
you to communicate with your Plotter by entering printing 
commands directly into your computer keyboard and having 
them executed immediately. 


The following example illustrates the DIRECT mode procedure 
for listing a short BASIC program. In the example below, a 
single statement BASIC program is keyed into the computer's 
memory. A LIST command is keyed and the program is printed 
on your video monitor, A file (#3) is OPENed to your Plotter, A 
CMD3 is issued to the file Open on your Plotter (it is now 
listening). issue the LIST command again. This time the output 
will be written on your Plotter. To unlisten the Plotter, you 
instruct the computer to print a null character to file#3. Now 
you Can CLOSE file#3, freeing up that file number for some 
other use. All output will now appear on the video monitor. 


You Type: The screen displays: | The Plotter prints: 
10 Print“TEST” 10 PRINT“TEST” 
LIST LIST 
10 PRINT“ TEST” 
OPEN 3,6 OPEN3,6 
READY. 
CMD 3 CMD 3 READY. 
LIST LIST 10 PRINT“TEST” 
READY. 
PRINT#3 PRINT#3 
READY. 
CLOSE 3 CLOSE 3 
READY. 


E. Printing Under Program Control: 


You have seen how to print a listing of a simple BASIC 
program directly from the keyboard. Although it is not good 
programming practice, the following example shows how to 
print a listing of a BASIC program under control of the 
program itself. First, enter the following simple program into 
your computer's memory: 


10 OPEN 3.6 

20 CMD 3 

30 PRINT“ PROGRAM CONTROL” 
40 LIST 


if you typed LIST on your keyboard. the program you just 
entered would be listed on your video monitor. Enter the RUN 
command. The following should be printed on your Plotter: 


PROGRAM CONTROL 


10 OPEN 3,6 

20 CMD 3 

30 PRINT“PROGRAM CONTROL” 
40 LIST 


READY. 
Now. enter the following: 


PRINT#3 
CLOSE3 


The RUN command instructed the computer to execute the 
program in its memory. First, file#3 (device#6) was opened. 
Next, the CMD command instructed the computer to direct all 
subsequent output to file#3. The program then PRINTed 
PROGRAM CONTROL on file#3. The LIST command instructed 
the computer to print a listing of the program in its memory on 
file#3. 


REMEMBER — when using the LIST command within a 
program, you must type the PRINT# Ifn command to unlisten 
the printer. Then you must type in the CLOSE Ifn command to 
close the file. Both of these commands can be entered into 
the program or after you have RUN the program. Using the 
LIST command or the CMD command in a program is 
generally not a good programming practice. It is suggested 
that you only use them in DIRECT mode. 
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F. Sophisticated Programming Techniques Through 
Secondary Addressing 


Earlier in this manual, you were introduced to the secondary 
address concept in the discussion of the OPEN statement. 
This unique feature allows you to instruct your new Plotter to 
do the following operations: 


Operation Secondary Address 
Print ASCII (character) Data 0 (default) 

Pilot X,Y Data 1 

Select Color 

Select Character Size 

Select Character Rotation 

Select Scribe (dashed) Line Mode 
Select Upper/Lower Case Letters 
Reset Plotter 


NO OO fF W PD 


For each desired operation (change a color, plot data, etc.) you 
will be OPENing a file and issuing PRINT# commands to that 
file to instruct your Plotter to perform the function defined by 
the secondary address. For example, a PRINT# command 
issued to a file that was OPENed with secondary address set 
to 2 would allow you to change the color of the pen in printing 
position. 


A complex plotting program which takes advantage of all of 
the above functions of your Plotter could have eight (8) files 
open at the same time. Remember that there is a limit of ten 
(10) files that can be open at any one time. To avoid confusion, 
it is highly recommended that you use the following file 
numbering conventions in all your programs for your Plotter 
(all examples in the manual follow the convention): 


Logical Secondary 

File Number (Ifn) Address Example 
4. 0 OPEN 4,6 
1 1 OPEN 1,6,1 
2 2 OPEN 26,2 
3 3 OPEN 36,3 
44 4 OPEN 44.6.4 
5 5 OPEN 5,6,5 
6 6 OPEN 6,6,6 
7 7 OPEN 7,6,7 
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The reason that file#4 has been assigned a secondary address 
of 0 is that printing of ASCII data is normally used more than 
character rotation (secondary address 4) and that a logical file 
number of 0 is not allowed. Notice that the secondary address 
was left off the OPEN command for file #4 — the 0 need not 
be coded as it is the default value. Since we assigned file #4 
to secondary address 0, file #44 has been assigned to 
secondary address 4. 


Let’s look at each secondary address: 
1. SA=0: Print ASCII Data 
The format for the PRINT# command is as follows: 


PRINT#4 (,data) 


This secondary address causes the Plotter to print ASCII 
data exactly as it is received from the computer. As 
mentioned above, this secondary address is the default 
value and need not be coded. Try the following sample 
programs: 


The first program will print four simple lines on your 
Plotter. 


100 
110 
120 
130 
140 
150 
160 
170 


REM SECONDARY ADDRESS 0 
REM PRINT ASCII DATA 

OPEN4,6 

FOR |=0TO3 

PRINT#4,1520 PRINTER PLOTTER” 
NEXT | 

CLOSE4 

END 


READY. 


i52@ PRINTER PLOTTER 
152@ PRINTER PLOTTER 
152@ PRINTER PLOTTER 
i528 PRINTER PLOTTER 
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The second sample program will print all numbers from 0 
to 255 and the ASCII character representation of each. 
When the numbers 34 and 141 are reached, the remainder 
of the line is filled with blanks. As you will see, your 
Plotter will print each character as it is received from your 
computer. 


100 REM SECONDARY ADDRESS 0 

110 REM PRINT ASCH DATA 

120 OPEN 4,6,0 

130 FOR|I=0 TO 255 

140 IF 1= 34 OR |= 141 THEN PRINT#4,I;CHR$ 
(I);:; PRINT#4:GOTO160 

150 PRINT#4,I;CHRS(I); 

160 NEXT | 

170 CLOSE4 

180 END 


READY. 


§ 34 ° 

35 # 36 $ 37 % 38 & 39 ' 48 €C 41 3 42 x 
43 + 44 , 45 - 46 4? 748 @ 43 1 58 2 
51352453 5 54 6 55 7 56 8 5? 39 58 
59 ; 6@ < 61 = 62 > 63 ? 64 @® 65 A 66 B 
67 C68 269° E 2o°F 71 G92 Ho72 1 24 3 
75K 76L 277M 78BN 79 0 88P 81 4 82k 
83 S 84 T 85 U 86 U 87 W 88 xX 839 Y 38 Z 
91. 92 4 S93) 1-840 95.-=°96. 97. 38-39 


142 143 144 145 146 147 148 1493 
150 -151 152 1538 154 155 156.157 
i58 159 168 161 $1 162 ° i163 # 164 $ 
165 « 166 & 167 ' 168 C 169 ) 178 x 171 
be TIOe 2. APB Ie, 1 Po EPO 8. TAZ Ed 
78 2 179 3 186 4 181 5 182 6 183 7 184 8 
185 9 186: 187 ; 188 < 189 = 138 > 191 
>? 192 —193 a 194 b 195 ¢ 196 d 197 e 1 
98 £ 199 9 286@ h 281 i 202 5 203 k 284 | 
205 m 286 n 287 0 208 p 209 4 218 ry 211 
4 212 & PIS &@ 2i4 vw 215 w-216 x 217 y 2 
1 VG POs. BO. OO te ZS EE 22 
225 226 227 228 2239 238 231 232 
233 234 235 236 237 238 239 248 
241 242 243 244 245 246 247 248 
249 258 251 252 253 254 255 9 
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2. SA=1: Plot X,Y Data 
The format for the PRINT# command is as follows: 
PRINT#1,“Sub-Command” (.X coordinate, Y coordinate) 
You can substitute a semicolon (;) for a comma ()). 


This secondary address gives you the ability to plot X,Y 
coordinate data and controi all movement of the pen 
Carriage within the plottable area. 


You may need to refer back to the discussion of the 
Plottable Area during the following description of sub- 
commands: 


Sub- 
Commands Function 

H Move to start point (0,0) 
(absolute origin point) 

| Set relative origin point (X0,Y0) = to the 
current position (X,Y) 

M Move to position (X,Y) relative to the 
absolute origin point (0,0) (pen up) 

D Draw to position (X,Y) relative to the 
absolute origin point (0,0) (pen down) 

R Move to position (X,Y) relative to the relative 
origin point (x0,yO) (pen up) 

J Draw to position (X,Y) relative to the relative 


Origin point (x0,y0) (pen down) 


NOTES: — For sub-commands M,D,R and J, 
movement/drawing takes place from the current 
pen carriage position. 


— Lines are drawn by first moving to the desired 
Starting point (M or R) then drawing to the 
ending point (D or J). 


— Figures requiring a center point (circles) are 
drawn by first moving to the desired point (M), 
setting a relative origin point (|), moving to the 
first computed point (R) then drawing to each 
computed point (J) until the figure is done. 


— MOVE implies pen up, DRAW impiies pen down. 


— Any carriage return sent to the file opened with 
secondary address 0 will cause a new absolute 
origin point (HOME point) to be defined. 
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in the first of three sample programs, a simple box will be 
drawn using absolute positions starting at point (50,0). 
Notice that after the box is complete, the pen carriage is 
sent to the HOME position. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


REM SECONDARY ADDRESS 1 
REM PLOT X,Y DATA ABSOLUTE 
OPEN1,6,1 

PRINT#1,““M’’,50,0 
PRINT#1,“D”’,50,150 
PRINT#1,‘‘D”’,200,150 
PRINT#1,D’’,200,0 
PRINT#1,“D”,50,0 

PRINT#1,"H” 

CLOSE1 

END 


READY. 
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In the next sample, the same box will be drawn but the 
program uses relative addressing. The pen carriage is 
moved to absolute point (50,0) and a relative origin is set. 
The placement of the box will be 50 steps to the right of 
the previous sample. 


100 
110 
120 
130 
132 
135 
140 
150 
160 
170 
180 
190 
200 


REM SECONDARY ADDRESS 1 
REM PLOT X,Y DATA RELATIVE 
OPEN1,6,1 

PRINT#1,‘‘M’’,50,0 

PRINT#1,‘I” 

PRINT#1,"R”,50,0 
PRINT#1,‘‘J’’,50,150 
PRINT#1,‘‘J”,200, 150 
PRINT#1,‘‘J’’,200,0 
PRINT#1,‘‘J’’,50,0 

PRINT#1,H”’ 

CLOSE1 

END 


READY. 
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in the third sample, you will be removing the 135 from the 
last sample program. Notice what happens to the box. The 
left side runs up at an angle. This line runs at an angle due 
to the following: 


— the pen carriage is positioned at absolute point (50,0) 


— the first “J” command draws from current pen 
position to position (50,150) relative to the relative 
origin point which is set at (50,0) — absolute point 
(100,150) 


100 
110 
120 
130 
132 
140 
150 
160 
170 
180 
190 
200 


REM SECONDARY ADDRESS 1 
REM PLOT X,Y DATA RELATIVE 
OPEN 1,6,1 

PRINT#1,““M”;50;0 

PRINT#1,"T" 
PRINT#1,J’’;50;150 
PRINT#1,‘J”;200;150 
PRINT#1,‘‘J’’;200;0 
PRINT#1,‘‘J’’;50;0 

PRINT#1,“H” 

CLOSE1 

END 


READY. 
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3. SA=2: Select Color 
The format for the PRINT# command is as follows: 
PRINT#2 <, color number > 


This secondary address gives you the ability to select the 
color. 


The following table defines the relationship of the color 
number to the actual color and the allowable values of the 
number: 


Color Number Color 
Oo ca ha tis a oad a ee eae Black 
Viet teh eee oe ee ge etd ee ed eke Blue 
DIN fe jets a Ae ASN ng Green 
Bitle cng de die ee Sh bo ch. aise lyuerarens Red 


Higher numbers are treated modulo 4. For example, 4 is 
black, 5 is blue, 6 is green, etc. 


In order for these relationships to be accurate, the pens 
must have been inserted in the exact order specified in 
SECTION 2 Part C — Pen Loading, Removal, and 
Replacement. 


Try the following two sample programs. You will note that 
there are two files open to your Plotter; one for printing 
ASCII data and one for selecting pen colors. 


100 REM SECONDARY ADDRESS 2 

110 REM SELECT COLOR 

120 OPEN4,6 :REM PRINT ASCII DATA 
130 OPEN2,6,2 :-REM COLOR SELECT 
140 FORI=0TO3 

150 READ A$ 

160 PRINT#2,I 

170 PRINT#4,I;° — ";A$" PEN” 

180 NEXT | 

190 PRINT#2,0 :REM RESET PEN TO BLACK 
200 CLOSE4;CLOSE2 

210 END 

220 DATA BLACK, BLUE,GREEN,RED 


READY. 
@ -~BLACK PEN 
~BLUE PEN 


i 
2 —-GREEN PEN 
3 ~RED PEN 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


REM SECONDARY ADDRESS 

REM SELECT COLOR 

OPEN4,6 ‘REM PRINT ASCII DATA 
OPEN26,2 :REM SELECT COLOR 
FOR 1=0 TO 10 

PRINT#2,I 

PRINT#4,1;“1520 PRINTER PLOTTER” 
NEXT | 

PRINT#2,0 ‘REM RESET TO BLACK 
CLOSE4:CLOSE2 

END 


READY. 


WOUGMIWNALNeE ® 


ig 


me 


152@ PRINTER PLOTTER 
1528 PRINTER PLOTTER 
1528 PRINTER PLOTTER 
1528 PRINTER PLOTTER 
1528 PRINTER PLOTTER 
1528 PRINTER PLOTTER 
1528 PRINTER PLOTTER 
1528 PRINTER PLOTTER 
1528 PRINTER PLOTTER 
1528 PRINTER PLOTTER 


1528 PRINTER PLOTTER 
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4. SA=3: Select Character Size 
The format for the PRINT# command is as follows: 
PRINT#3 < ,character size number > 


This secondary address gives you the ability to select the 
character size for printing ASCII data. 


The following table defines the relationship of the 
character size number to the actual character size 
(specified in characters/line) and the allowable values of 
the number: 


Character Character 
Size Number Size 
0 80 characters/line 
1 40 characters/line (default) 
2 20 characters/line 
3 10 characters/line 


Higher numbers are treated modulo 4. For example, 4 is 80 
characters/line, 5 is 40 characters/line, 6 is 20 
characters/line, etc. 


Try the following sample program. It will demonstrate the 
four character sizes available to you. Again, two files are 
used in this program; 1 to print ASCII data and 1 to select 
the character size. Note statement 195 — this is used to 
reset the character size to the default value so that the 
next sample program you run will print ASCII data at the 
correct size. 


100 REM SECONDARY ADDRESS 3 

110 REM SELECT CHARACTER SIZE 

120 OPEN4,6 :REM PRINT ASCil DATA 
130 OPEN3,6,3  :REM SELECT CHAR. SIZE 
140 FORI=0TO3 

150 READX$ 

160 PRINT#3,I 

170 PRINT#4,RIGHTS(STR&(N), 1); = 3X3; C 
HAR” 

180 PRINT#4 

190 NEXT | 

195 PRINT#3,1. :REM RESET TO 40/LINE 
200 CLOSE4:CLOSE3 

210 END 

220 DATA 80,40,20,10 


READY. 
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3388 CHAR 


1=49 CHAR 


Z2=20 CHAR 


3710 CHAAR 


Here is some technical data on character size and Spacing. 
The information is based on a character size of 40 
characters/line. 


1) Character size 
1.05 x 1.45mm ‘o + 
(In the case of 0.25mm line width) 7 


2) Inter-character pitch | 1.05 | 
1.2 + 10% ! 

3) Inter-line pitch 
2.4mm + 10% 
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5. SA=4: Select Character Rotation 
The format for the PRINT# command is as follows: 
PRINT#44 < ,character rotation number 


This secondary address gives you the ability to select 
character rotation. Please note the logical file number of 
44 — refer to SECTION 3 Part F for a discussion of 
recommended file numbering conventions. 


The following table defines the relationship of the 
character rotation number to the actual! rotation parameter 
and the allowable values of the number: 


Character Character 

Rotation Rotation 

Number Parameter 
0 Normal Horizontal Mode (default) 
1 90 Degree Rotation to the Right 


Higher numbers are treated modulo 2. For example, 2 is 
normal horizontal mode, 3 is 90 degree rotation to the 
right, etc. 


Try the following three sample programs. The first program 
will print a line of characters in normal horizontal mode 
and then a line of characters — each rotated 90 degrees to 
the right printed horizontally. Note statement 190 — it 
resets the character rotation of the Plotter to normal 
horizontal mode. 


100 REM SECONDARY ADDRESS 4 

110 REM REM CHARACTER ROTATE 

120 OPEN4,6 :REM PRINT ASCI! DATA 

130 OPEN44,6,4 :REM SELECT ROTATION 

140 PRINT#44,0 

150 PRINT#4,“O0 — NORMAL HORIZONTAL MODE” 
160 PRINT#4 

170 PRINT#44,1 

180 PRINT#4,“1 — 90 DEG ROTATE TO THE RI 
GHT”’ 

190 PRINT#44,0 :REM SET BACK TO DEFAULT. 
200 CLOSE4:CLOSE44 

210 END 


READY 
@ ~ NORMAL HORIZONTAL MODE 


m | COC CAM ASADPAN AO AM w-conH 
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The second sampie illustrates a line of characters printed 
in normal horizontal mode and then a line of characters — 
each of which is rotated 90 degrees and printed vertically. 
This sample produces a much more readable text on your 
Plotter. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


REM SECONDARY ADDRESS 4 

REM REM CHARACTER ROTATE 

OPEN4,6 “REM PRINT ASCII DATA 
OPEN44,6,4 :REM SELECT ROTATION 
PRINT#44,0 

PRINT#4,““0 — NORMAL HORIZONTAL MODE” 
PRINT#4 

PRINT#44,1 

A$= ‘1 — 90 DEG ROTATE TO THE RIGHT” 
FOR |= 1 TO LEN(A$) 

PRINT#4,MIDS$(A$I, 1) 

NEXT | 

PRINT#44,0 :REM SET TO DEFAULT ROT. 
CLOSE4:CLOSE44 

END 


READY. 


0 — NORMAL HORIZONTAL MODE 


LHOIY AHL OL ALVLOYH DAG 06 — | 
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The third sample program prints output that is similar to 
the output of the first sample but the characters in the 
second line are inverted — printed from right to left. 


100 REM SECONDARY ADDRESS 4 

110 REM REM CHARACTER ROTATE 

120 OPEN46 ‘REM PRINT ASCII DATA 

125 OPEN1,6,1. :REM PLOT X,Y DATA 

130 OPEN44,6,4 :-REM SELECT ROTATION 

140 PRINT#44,0 

150 PRINT#4,“O — NORMAL HORIZONTAL MODE” 
160 PRINT#4 

170 PRINT#44,1 

180 A$=“1 — 90 DEG ROTATE TO THE RIGHT” 
185 L=LEN(A$) 

190 FORI=LTO1STEP — 1 

200 PRINT#1,“M’;16*(L — 1),0:PRINT#4,MIDS( 
A$,I,1); 

210 NEXT | 

220 PRINT#44,0 :REM SET TO DEFAULT ROT. 
230 CLOSE4:CLOSE44:CLOSE1 

240 END 


READY. 
@ — NORMAL HORIZONTAL MODE 


ALTO A MEA OFA MADAOA OMoD ew 
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6. SA =5: Scribe (broken) Line Select 
The format for the PRINT# command is as follows: 
PRINT#5 <, scribe line number > 


This secondary address gives you the ability to select and 
draw broken or scribe lines. 


The following table defines the relationship of the scribe 
line number to the width of each segment of the broken 
line and the allowable values of the number. 


Scribe Width 
Line of each 
Number Scribe Segment 
0 Normal unbroken line (default) 
1 Broken line (smallest increment — 0.2mm 
-to- 
15 Broken line (largest usable increment) 


Higher numbers are treated modulo 16. For example, 16 is 
normal unbroken tine, 17 is smallest increment broken 
line, etc. 
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The sample program draws all scribe lines with values 
between 0-15 (inclusive). Watch closely how the plotting 
proceeds — all scribe lines will be drawn first then each 
will be labeled with the scribe line number. Actual X,Y 
coordinates are used. The HOME position is the starting 
point. Note how the Y coordinate value is computed. 


100 REM SECONDARY ADDRESS 5 

110 REM SCRIBE LINE SELECT 

120 OPEN4,6 ‘REM PRINT ASCII DATA 
130 OPEN1,6,1 :REM PLOT X,Y DATA 

140 OPENS,6,5 :REM SELECT SCRIBE LINE 
150 FOR I=0TO 15 

160 PRINT#5,| 

170 PRINT#1,“M”;30;-1*20 + 10 

180 PRINT#1,‘D’’;480;-1*20 + 10 

190 NEXT | 

200 PRINT#5,0 

210 PRINT#I,“H” 

220 FOR |I=0TO 15 

230 PRINT#4,RIGHTS(‘ ” + STR&(I),2) 

240 NEXT | 

250 PRINT#5,0 :REM RESET TO SOLID LINE 
260 CLOSE4:CLOSE1:CLOSE5 

270 END 


READY. 
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7. SA=6: Select UPPER/lower Case 
The format for the PRINT# command is as follows: 
PRINT#6 < , upper/lower case number > 


This secondary address gives you the ability to choose 
between two character printing modes. 


The following table defines the relationship of the 
upper/lower case number to the type of character printing 
mode and the allowable values it can have: 


Upper/Lower Character 
Case Printing 
Number Mode 
0 Normal Upper Case/Shifted Lower Case 
(default) 
1 Normal Lower Case/Shifted Upper Case 


Higher numbers are treated modulo 2. For example, 2 is 
normal upper case/shifted lower case, 3 is normal lower 
case/shifted upper case, etc. 
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The sample program will print the alphabet plus some 
special characters in both modes described above. 


100 REM SECONDARY ADDRESS 6 
110 REM UPPER/LOWER CASE SHIFT MODE 
120 OPEN46 :REM PRINTING ASCII DATA 
130 OPEN6,6,6 :-REM SELECT UP/LOW CASE 
140 PRINT#6,0 
150 PRINT#4,“0 — UPPER CASE/SHIFTED LOWE 
R CASE” 
160 GOSUB 230 
170 PRINT#4 
180 PRINT#6,1 
190 PRINT#4,““1 — LOWER CASE/SHIFTED UPPE 
R CASE” 
200 GOSUB 230 
205 PRINT#6,0 -REM RESET TO NORMAL 
210 CLOSE4:CLOSE6 
220 END 
230 REM * PRINT CHARACTER SET * 
240 FOR |=64 TO 95:PRINT#4,CHR&(I);:; NEXT 
| 
250 PRINT#4 
260 FOR |= 192 TO 223:PRINT#4,CHR&(I);:NE 
XT | 
270 PRINT#4 
280 RETURN 


~ READY. 


@ -~ UPPER CASE/SHIFTED LOWER CASE 
@ABCDEFGHI JKLMNOPQRSTUUWXYZE £] te] 
—abcdefgh| Jkimnoparstuvuxyz lan 


Ll - Lower case/sh!fted upper case 
—abcdefghi }kimnoparstuvuxyz | _~adrd 
@CABCDEFGHIJKLMNOPOQRSTUUWAYZE a] te 
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8. SA=7: Reset the Plotter 
The format for the PRINT# command is as follows: 
PRINT#7 


This secondary address gives you the ability to reset your 
Plotter. All secondary addresses are reset to the default 
values and the Plotter’s memory is cleared. 


This command is very important. When you run a program 
that uses combinations of large characters, scribe lines 
and various colors, the final settings will remain in effect 
for the next program. You can save yourself a lot of trouble 
if you run this command either at the beginning or end of 
every program you write for your Plotter. 


The sample program will reset your Plotter. It will print the 
same four boxes that we discussed earlier in the Power-On 
Test in Section,2 Part E. 


100 REM SECONDARY ADDRESS 7 

110 REM RESET PRINTER & CLEARS MEMORY 
120 OPEN/,6,7 

130 PRINT#7 

140 CLOSE7 


READY. 


LIU 
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SECTION 4 


Appendices 


APPENDIX A: 1520 Plotter Specifications 


1. 


General Specifications 


Print Method 

Colors 

Drive Unit 

Print Speed 

Line Capacity (X-axis) 


Character Set 
Plotting Speed 

Step Length 

Line Drawing Speed 


Plottable Area 


Pen Life 
Paper 


External Dimensions 


Operating Environment 
Power Requirements 
Power Consumption 


Temperature 
Humidity 


‘Water ink ballpoint pen 

:-4 Colors (black, blue, green, red) 
:Drum Type X,Y Plotter 

:12 characters/second (avg.) 
:Maximum 80 characters/line 


(80, 40, 20, or 10 characters as 
desired) 


:96 Characters 
:260 steps/second 
0.2mm (0.0078 inch) along X-axis 


0.2mm (0.0078 inch) along Y-axis 


:‘52mm/sec. (along X and Y axis) 


73mmisec. (along 45 degree vector) 


‘479 positions along X axis 


(numbered 0 to 479) 

Programmable as desired along the 
Y axis; maximum range +/— 998 
positions (numbered 0 to 998) 


‘Minimum 250 meters (825 feet) 
:COMMODORE Part Number 


1520030-01; Width — 114 
millimeters (42 inches); Thickness 
— 70 Microns; Diameter — 70 
Millimeters (maximum) 


7251 D x 282 W x 93 H (mm) 


:117V (USA), 220-240V (Europe), 100V 


(Japan); AC +/— 10%, 50/60 Hz 


:20 watts (max), 5 watts (idling) 
5-40 degrees Centigrade 
:20%-80% (no condensation) 
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APPENDIX B: ASCII Code Table 


UPPER CASE/SHIFTED LOWER CASE 


Ol i213/41Si8I7/ 8/9 AIBICIDIELF] 
al tatetet fe oe 

LTT Tat teatol_] Hifetal | 

2| | |" j2/ BR Peak 2.0 

3{ | j#/3/Cls #/S3icis| | 

at | [stato(rl 4 tah - 
5 | “5 (E[U| ment 

6) | le tereluy [yeperttel 
2 ist PP tsp 
a a 6 a 
er Ebay STi yy! 

apt [x tz] Gs Tete phen? 

cy +13 [KIC | eee bleh 4 
ce a eae te eh 

DB [- f= [My | [=[=imt a] 
Ele eae oll Salas 
FE. i7ielore [ {A?lolol Te 


upper case/vshifted Lower case 


jai [2 (Sta 617/8/Slalbjc|dje|f] 
2 BI. [ | E Ble ae | 
L Piija PilA;a: 

fr ore E = + Sl cctoducolk 4 
ree OE a al 2(B TRE | 
eet 
al 1 te BTe Tia al Te S[eTy] t 
BS, & [6] Flo [8 | 6[F/U 

rate ae a Aa en eae Ler 
By | [Cisih “al fed (| 8] Hy XT] fe 
PU es arora, 
ja, | xf bilz = Ks | eZ 
sie lil | fier a 
zal + eS AE ee es ee fatal tt 
HESS CE CEH 
i. state see ee eT 
e| ~|>EN 1 oi >tN] . 
eee ha. tie olep okt 


NOTE) WHEN ASCII $22¢°) rs DETECTED, UNTIL SECOND ASCII $22 OR ASCIT sODCCR) Is 
OETECTED FOLLOWING CONTROL CODES ($88-$1F ,488-$3F 31S PRINTED A CORRESPONDENT UNDE 
RUINED CHARCTERS HOWEVER ASCII s20CcR) DOES. ALWAYS CARRIOGE RETURN, 
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APPENDIX C: Printing Control Characters 


Your Plotter is not able to print reverse, graphic or control 
characters. If any such characters appear in a program listing 
printed on your Plotter, they will be printed as underlined 
characters. The sample program listed below was printed ona 
VIC-1525 Graphic Printer. Note how each control character is 
printed. 


100 REM CONTROL CHARACTER 0 
110 OPEN6,6,6:PRINT#6,0 
120 OPEN4,6 

130 PRINT“ HOME 

140 PRINT“@ CLR 

150 PRINT“ CRSR DOWN 
160 PRINT“ CRSR UP 
170 PRINT“BI CRSR RIGHT 
180 PRINT‘“#l CRSR LEFT 
190 PRINT“@ F1 

200 PRINT ‘i F2 

210 PRINT‘ F3 

220 PRINT‘ F4 

230 PRINT EM F5 

240 PRINT‘ F6 

250 PRINT F7 

260 PRINT F8 

270 PRINT“@ BLACK 

280 PRINTS! WHITE 

290 PRINTF RED 

300 PRINT“& CYAN 

310 PRINT“ PURPLE 

320 PRINT“&l GREEN 

330 PRINT“ BLUE 

340 PRINTF YELLOW 
350 REM COMMODORE64 
360 PRINT“EY ORANGE 
370 PRINT“® BROWN 

380 PRINT“ LIGHT RED 
390 PRINT‘#] DARK GREY 
400 PRINT“& MED GREY 
410 PRINT“ LIGHT GREEN 
420 PRINT“E? LIGHT BLUE 
430 PRINT‘‘ss LIGHT GREY 
440 CLOSE4:CLOSE6 

450 END 


READY 
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Note the difference in how the control characters are formed 
when this program is LISTed on your Plotter. 


100 REM CONTROL CHARACTER 0 
110 OPEN6,6,6:PRINT#6,0 
120 OPEN4,6 

130 PRINTS HOME 

140 PRINT“‘s. CLR 

150 PRINT’Q CRSR DOWN 
160 PRINT“q CRSR UP 
170 PRINT“] CRSR RIGHT 
180 PRINT“az CRSR LEFT 
190 PRINT“e F1 

200 PRINT| F2 


210 PRINT‘£ F3 


220 PRINT‘ F4 

230 PRINT“g F5 

240 PRINT“k F6 

250 PRINT“h F7 

260 PRINT“L F8 

270 PRINT‘p BLACK 

280 PRINT‘E. WHITE 

290 PRINT“# RED 

300 PRINT“( CYAN 

310 PRINT“__ PURPLE 
320 PRINT“ + GREEN 

330 PRINT“ « BLUE 

340 PRINT‘‘x YELLOW 
350 REM COMMODORE64 
360 PRINT‘‘a ORANGE 
370 PRINT“u_ BROWN 
380 PRINT‘v_ LIGHT RED 
390 PRINT‘w DARK GREY 
400 PRINT“x_ MED GREY 
410 PRINT‘y LIGHT GREEN 
420 PRINT‘z_ LIGHT BLUE 
430 PRINT| LIGHT GREY 
440 CLOSE4:CLOSE6 

450 END 


READY. 
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APPENDIX D: Serial interface information 


1. The Connector: 


Pin No. Signal 
1 SERIAL SRQ 
2 GND 
3 SERIAL ATN 
4 SERIAL CLK 
5 SERIAL DATA 
6 RES 


2. The Interface: 


a. 


Plug the serial interface cable supplied with your Plotter 
into the Serial Bus connector for the connection. Refer to 
SECTION 2 Part D for details on how to connect your 
Plotter to your computer. 


. When the plotter is printing, no data will be transferred 


from the computer (the data line is said to be low). When 
the plotter is at rest, data can be transferred from the 
computer (the data line is said to be high). 


. When a printer error occurs, all control circuits inside the 


Plotter will stop. 


. User defined machine language IRQ routines should not 


exceed 10 milliseconds. If this is done, the Plotter may 
give a DEVICE NOT PRESENT error. 
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APPENDIX E: Programs you cay try 


your own programs. 


As you try each one, note how multiple Secondary addresses are 
combined to produce quite complex multi-color plots. Also note 
how the geometric formulas and Pen position commands are used 
to draw triangles, circles and ellipses. 


For each program, there is a printout of the expected Plotter 
output. 


. Concentric Circles 

. Concentric Squares 

. Rotating Triangles 

. Cone made from Circles 

. Circle made from Circles 

- Rotating Ellipses 

. Archimedian Spiral 

- Geometric Design 

. Checker Board 

. Hatching 

. Changing Forms (Enter a number) 
. Rotating Figures 

- Bar Chart (Enter your Own data) 
- Gomplex Bar Chart 


—) 
PSHOONAOAwWHU 


soo 
POM 
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1. Concentric Circles 


100 
110 
120 
130 
135 


READY. 
CONCENTRIC CIRCLES 


cap, 


REM CIRCLE 1 

OPEN4,6,0 “REM PRINT ASCII 
OPEN1,6,1 :REM PLOT X,Y DATA 
OPEN2,6,2:C=0 :REM PEN COLOR 


PRINT#4:PRINT#4,“CONCENTRIC CIRCLES” 
PRINT#1,““M”:240, — 240 

PRINT#1,‘1” 

FOR L=30 TO 180 STEP 30 

C=C+1: IF C>= 4: THEN C=0 

PRINT#2,C :REM SET COLOR 

FOR Z=1T0 15 

FOR !=0 TO 360 STEP10 

X= (Z + L)*SIN(I*3.1416/180) 


Y =(Z+L)*COS(I*3.1416/180) 
IF 1=0 THEN PRINT#1,“R”:X,Y: GOTO 240 
PRINT#1,“U'"X,Y 

NEXT I 

NEXT Z 

NEXT L 

PRINT#1,“R”:0, — 240 
PRINT#4:PRINT#4:PRINT#H4 

OPEN7,6,7 -REM RESET PLOTTER 
PRINTH7 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 


END 
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2. Concentric Squares 


100 
110 
120 
130 
135 
140 
150 
160 
170 
180 
185 
190 
200 
210 
220 
230 
240 
250 


REM SQUARE = 

OPEN4,6,0 ‘REM PRINT ASCII 
OPEN1,6,1 :REM PLOT X,Y DATA 
OPEN2,6,2:C=0 :REM PEN COLOR 
PRINT#4:PRINT#4,“CONCENTRIC SQUARES” 
PRINT#1,“M’:240, — 240 

PRINT#1,“‘1” 

FOR |=0 to 90 STEP 10 

C=C+1: IFC>=4THENC=0 
PRINT#2,C ‘REM SET COLOR 
FOR J=17T0 11 

X=t+J. 

Yl. 

PRINT#1,“R”:X; — Y 

PRINT#1,“U'sX,Y 

PRINT#1,“U”; — X:¥ 

PRINT#1,“U":—X;-—Y 

PRINT#1,““J’:X; — Y 

NEXT J 

NEXT | 

PRINT#4:PRINT#4:PRINT#4 
PRINT#1,“R”;0, — 200 

OPEN/7,6,7 ‘REM RESET PLOTTER 
PRINT#7 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 

END 


READY. 
CONCENTRIC SQUARES 


O OO 
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3. Rotating Triangles . 


100 REM ROTATE TRIANGLE 
110 OPEN4,6,0 :-REM PRINT ASCII DATA 
120 OPEN1,6,1 :REM PLOT X,Y DATA 
130 OPEN2,6,2:C=4 :-REM COLOR 

135 PRINT#4:PRINT#4:PRINT#4,“ROTATING TRIANGLE” 
140 PRINT#1,"M”;240, — 200 

150 PRINT#1,‘‘I” 

160 N=3:L= 160 

170 FOR A=0 TO 360/N STEP 10 

180 C=C+1:IFC > =4 THEN C=0 

190 PRINT#2,C -REM SET COLOR 

200 TH=A* x /180 

210 FORI=OTON 

220 X=L*SIN(TH + 1*2* x /N) 

230 Y=L*COS(TH + 1*2* x /N) 

240 IF t=O THEN PRINT#1,“R”:X,Y:GOTO 260 
250 PRINT#1,“J’:X,Y 

260 NEXT | 

270 NEXT A 

280 PRINT#1,“R”:0, — 200 

290 PRINT#H4:PRINT#H4:PRINT#H4 


300 OPEN/7,6,7 “REM RESET PLOTTER 
310 PRINT#7 

320 CLOSE4:CLOSE1:CLOSE2:CLOSE7 
330 END 

READY 


ROTATING TRIANGLE 


hii 
TT | 


 ] 
PSSST 
| NI 
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4. Cone Made From Circles 


100 REM CIRCLE2 


110 OPEN4,6,0 ‘REM PRINT ASCII DATA 
120 OPEN1,6,1 ‘REM PLOT X,Y DATA 
130 OPEN2,6,2:C = 4 :-REM COLOR 


135 PRINT#4:PRINT#4:PRINT#4,”°CONE MADE FROM CIRCLES” 
140 PRINT#H1,“M’:240, — 200 


150 PRINT#1,‘I” 
160 FOR L=5 TO 150 STEP 5 
170 PRINT#2,“1” “REM SET COLOR - BLUE 


180 FOR !=0 TO 360 STEP 10 

190 X=L*SIN(I* x /180) 

200 D=L*2:Y = — 240+ D+ L*COS(I* x /180) 
210 IF |=0 THEN PRINT#1,“R”;X,Y:GOTO 230 
220 PRINT#1,‘“U’:X,Y 

230 NEXT | 

240 NEXT L 

250 PRINT#1,‘R”;0, ~ 300 

260 PRINT#4:PRINT#4:PRINT#4 


270 OPEN 7,6,7 :-REM RESET PLOTTER 
280 PRINT#7 

290 CLOSE4:CLOSE1:CLOSE2:CLOSE7 

300 END 

READY 


CONE MADE FROM CIRCLES, 


AN 


Xi) 


OOOO 
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5. Circle Made From Circles 


100 
110 
120 
125 
130 
140 
150 
160 
170 
180 
190 


REM CIRCLE3 

OPEN4,6,0 :REM PRINT ASCil DATA 

OPEN1,6,1 :-REM PLOT X,Y DATA 
PRINT#4:PRINT#4:PRINT#4,“CIRCLE MADE FROM CIRCLES” 


OPEN2,6,2:PRINT#2,“2” :-REM GREEN 
PRINT#1,"°M”;240, — 200 

PRINT#1,"1” 

L=30:R=80 

FOR J=0 TO 360 STEP 15 

FOR |=0 TO 360 STEP 10 

X= R*SIN(J* 4/180) + L*SIN(I* x /180) 


200 Y= R*COS(J* x /180) + L* COS(I* x /180) 
210 IF 1=0 THEN PRINT#1,“R”;X,Y:GOTO 230 
220 PRINT#1,“J";X,Y 

230 NEXT | 

240 NEXT J 

250 PRINT#1,‘'R’’;0, — 100 

260. PRINT#4:PRINT#4:PRINT#4 

270 OPEN/7,6,7 :REM RESET PLOTTER 
280 PRINT#7 

290 CLOSE4:CLOSE1:CLOSE2:CLOSE7 

300 END 

READY 


CIRCLE MADE FROM CIRCLES 


OA 
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6. Rotating Ellipses 


100 REM ROTATING ELLIPSE 
110 OPEN4,6,0 -REM PRINT ASCII DATA 
120 OPEN1,6,1 :-REM PLOT X,Y DATA 

125 PRINT#4:PRINT#H4:PRINT#H4,“ROTATING ELLIPSE” 
130 OPEN2,6,2:PRINT#2,“3” :-REM RED 

140. PRINT#1,“M":240, — 200 

150 PRINT#1, “I” 

160 A= 180:B = 60:TH = x /180 

170 FOR J=0 TO 180 STEP 15 

180 FOR |=0 TO 360 STEP 15 

190 R= A*COS(I*TH) 

200 L= B*SIN(I*TH) 

210 X= R*COS(J*TH) — L*SIN(J*TH) 

220 Y= R*SIN(J*TH) + L*COS(J*TH) 

230 IF |= 0 THEN PRINT#1,"R”:X,Y:GOTO250 

240 PRINT#1,“d":X,Y 

250 NEXT | 

260 NEXT J 

270 PRINT#1,“R":0, — 200 

280 PRINT#4:PRINT#4:PRINTH4 


290 OPEN7,6,7 :REM RESET PLOTTER 
300 PRINT#7 

310 CLOSE4:CLOSE1:CLOSE2:CLOSE7 

320 END 

READY 


ROTATING ELLIPSE 
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7. Archimedian Spiral 


100 
110 
120 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


REM ARCHIMEDIAN SPIRAL 
OPEN4,6,0 :REM PRINT ASCII DATA 
OPEN1,6,1 :REM PLOT X,Y DATA 


‘PRINT#4:PRINT#4:PRINT#4,“ARCHIMEDIAN SPIRAL” 


OPEN2,6,2:PRINT#2,“0” :REM BLACK 
PRINT#1,‘M’’;240, — 200 

PRINT#1,‘‘I’’ 

P=9:A=4 

FOR TH=0 TO A*2* x STEP x /24 

X= P*TH*COS(TH) 

Y= P*TH*SIN(TH) 

IF TH =0 THEN PRINT #1,“R”:X,Y:GOTO220 
PRINT#1,“‘J’:X,Y 

NEXT TH 

PRINT#1,“‘R”;0, — 240 
PRINT#4:PRINT#4:PRINT#4 

OPEN7,6,7 :REM RESET PLOTTER 
PRINT#7 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 

END 


READY 


ARCHIMEDIAN SPIRAL 


OOO 
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8. Geometric Design 


100 
110 
120 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


REM GEOMETRICS 

OPEN4,6,0 :-REM PRINT ASCII DATA 
OPEN1,6,1 ‘REM PLOT X,Y DATA 
PRINT#4:PRINT#4:PRINT#4,‘GEOMETRIC DESIGN” 
OPEN2,6,2:PRINT#2,2 :REM GREEN 

N=17 

PRINT#,““M”:0, — 260 :REM ORIGIN PT 
PRINT#4 

L= 160 

FOR J=0TO N-1 


FOR l=0TO J—1 

X1= 240+ L*COS(2/N*J* x ) 

Y¥1= 100+ L*SIN(2/N*J* 2 ) 

X2 = 240 + L*SIN(2/N*I* x ) 

Y2= 100+ L*SIN(2/N*I* x.) 
PRINT#1,“M”:X1,Y1 
PRINT#1,“D";X2,¥2 

NEXT | 

NEXT J 

PRINT#1,“M’’;0, — 100 
PRINT#4:PRINT#4:PRINT#4 
OPEN/,6,7 :-REM RESET PLOTTER 
PRINT#7 
CLOSE4:CLOSE1:CLOSE2:CLOSE7 
END 


READY 


GEOMETRIC DESIGN 
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9. Checker Board 


100 
110 
120 
125 
130 
140 
150 
160 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


REM CHECKERBOARD 

OPEN4,6,0 :REM PRINT ASCII DATA 
OPEN1,6,1 :REM PLOT X,Y DATA 
PRINT#4:PRINT#4:PRINT#4,“CHECKER BOARD” 
OPEN2,6,2:PRINT#2,1 ‘REM BLUE 
PRINT#1,“‘M’’;60, — 360 

PRINT#1, “I” 

B= 360 

FOR R=0 T0 8:D= B/8 

PRINT#1,“R”;0;D*R 

PRINT#1,“J";B;D*R 

NEXT R 

FOR C=0 TO 8:W= B/8 

PRINT#1,“R”’;\W*C;0 

PRINT#1,“J";\W*C;B 

NEXT C 

FOR J=0TO7 

A=J—2*INT(J/2) 

FOR I=ATO7 STEP 2 

FOR V=0TOD 

PRINT#1,“R”;1*WJ*D+V 

PRINT#1,“J75(1+ 1)*W3J*D+V 

NEXT V 

NEXT | 

NEXT J 

PRINT#1,“H” 

PRINT#4:PRINT#4:PRINT#4 

OPEN7,6,7 :-REM RESET PLOTTER 
PRINT#7 

CLOSE4:CLOSE1:CLOSE2:CLOSE7 

END 


READY 
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CHECKER BOARD 


DIO) 


10. Hatching 


100 REM HATCHING 

110 OPEN4,6,0 :REM PRINT ASCII DATA 
120 OPEN1,6,1 “REM PLOT X,Y DATA 
125 PRINT#4:PRINT#4:PRINT#4,“HATCHING” 
130 OPEN2,6,2:PRINT#2,2 :REM GREEN 

140 X=0:FOR D=2 TO 15 STEP 2 

150 PRINT#1,‘‘M”;X, — 100:X = X + 60 

160 PRINT#1,“‘I” :REM SET ORIGIN 
170 A=50:B= 100 

180 PRINT#1,‘‘U”;0;B 

190 PRINT#1,“J";A;B 

200 PRINT#1,“J”;A;0 

210 PRINT#1,“U";0;0 

220 P1= — B:Q1= B:P2=0:02=A+B 

230 GOSUB 360 

240 IF Q2< D THEN NEXT D:GOTO 320 

250 PRINT#1,“R”’;X1;Y1 

260 PRINT#1,“R”;X1;¥2 

270 GOSUB 360 

280 PRINT#1,'R’;X2;¥2 

290 PRINT#1,"U";X1;Y1 

300 GOTO 230 

310 PRINT#1,“M”;0; — 120 

320 PRINT#4:PRINT#4:PRINT#4 

330 OPEN/,6,7:PRINT#7 :REM RESET PLOTTER 
340 CLOSE4:CLOSE1:CLOSE2:CLOSE7 

350 END 

360 P1=P1+D:Q1=Q1-—D 

370 IF Q1 <0 THEN Y1=0:X1:= P1:GOTO 390 
380 Y1=Q1:X1=0 

390 P2=P2+D:Q2=Q2-D 

400 IFP2> A THEN X2= A:Y2 = Q2:GOTO 420 
410 X2=P2:Y2=B 

420 RETURN 


READY 


HATCHING 


56 


11. Changing Forms 


100 
110 
120 
130 
140 
150 
160 
170 
175 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


REM CHANGING FORMS 


OPEN4, :REM PRINT CHAR 
OPEN1,6,1 ‘REM MOVE PEN 
OPEN2,6,2 ‘REM SELECT COLOR 


PRINT#4:PRINT#4:PRINT#4:PRINT“CHANGING FORM” 
PRINT#4,“CHANGING FORM” 
INPUT“ENTER NBR OF STEPS”:M 
PRINT#4,“STEP ”:M 

PRINT#2,3 -REM RED PEN 
PRINT#H1,““M’;240, — 200 
PRINT#1,“I” 

FOR|=1104 

READ A,B:X1(I) = A:Y1(I) = B 

NEXT | 

FORI=1T04 

READ A,B:X2(|) = A:Y2(I) = B 

NEXT | 

FOR K=0TOM+1 

FORI=1TO4 

AX = X2(I) — X1(1) 

AY = Y2(I) — Y1(1) 

XX(I) = X1(I) + L* AX/(M + 1) 

YY(I) = Y1(I) + K*AY/(M + 1) 


NEXT | 
FOR J=1TO4 
IF J=1 THEN PRINT#1,“R’;XX(J);YY(J):GOTO 360 


PRINT#1,“U" | XX(J);VY(J) 


NEXT J 
PRINT#1,“‘J’:XX(1):YY(1) 
NEXT K 
PRINT#1,(M”;0, — 350 


PRINT#4:PRINT#4:PRINT#4 

OPEN/,6,7 ‘REM RESET PLOTTER 
PRINT#7 

CLOSE4:CLOSE1:CLOSE2:CLOSE7 

END 

DATA 150,210, 150,170,200, 170,200,210 

DATA — 200, — 90, — 150, — 90, — 150,0, — 200,0 


READY 
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CHANGING FORM 
STEP 3 


HU 


CHANGING FORM 
STEP 12 


OOO 


12. Rotating Figures 


100 
110 
120 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 


REM ROTATE2 
OPEN4,6,0 :REM PRINT ASCII DATA 
OPEN1,6,1 REM PLOT X,Y DATA 


PRINT#4:PRINT#4:PRINT#4,“ROTATING FIGURES” 
OPEN2,6,2:PRINT2,1. :REM BLUE 
PRINT#1,“M”;240, — 240 

PRINT#1 “I” 

TH= x /180 

FOR |= 1 TO 4:READ A,B:X(I) = A:¥(I) = B:NEXT | 


FOR J=0 TO 359 STEP 15 
FORI=1T04 

XX(I) = X(I)* COS(J* TH) — Y(I)* SIN(J* TH) 
YY(I) = X(I)*SIN(J*TH) + Y(I)* COS(J*TH) 
IF |= 1 THEN PRINT#1,“R”:XX(I);YY(I):;GOTO 240 
PRINT#1,“J”:XX<(I):YY(I) 

NEXT | 
PRINT#1,"‘J:XX(1):YY(1) 

NEXT J 

PRINT#1,"M”;0, — 400 
PRINT#4:PRINT#H4:PRINT#4 

OPEN7,6,7._ :REM RESET PLOTTER 
PRINT#7 

CLOSE4:CLOSE1;CLOSE2 

END 

DATA 70,80,90,130,110,130,130,80 


13. Bar Chart 
100 REM BAR GRAPH (INTERACTIVE DATA ENTRY) 


110 OPEN4,6,0 :REM PRINT ASCII DATA 
120 OPEN1,6,1 ‘REM PLOT X,Y DATA 
130 OPEN2,6,2 :REM COLOR 

140 OPEN3.6,3 “REM CHARACTER SIZE 


145 PRINT#4:PRINT#4:PRINT#4,“BAR CHART”:PRINT#4 
147 PRINT#4:PRINT#4 

150 GOSUB 980 

170 C=1:GOSUB 950 

180 PRINT#1,“M”;0, — 200 

190 PRINT#4 

200 PRINT#1,‘‘M”;20,0 

210 PRINT#1,‘‘D’;20,200 

220 PRINT#1,“‘H” 

230 PRINT#1,‘M’’;20,0 

240 PRINT#1,‘D’;480,0 

250 FOR |= 25 TO 200 STEP 25 
260 PRINT#1,“M’:15\1 

270 PRINT#1,‘D”:20,1 


280 NEXT | 

290 : 

300 FORI=1TOL 

310 C=1 :GOSUB 950 
320 H=A(l)*5 :GOSUB 590 
330 NEXT | 

340 : 

350 FOR |I=1TOL 

360 C=! :GOSUB 950 
370 H=A\(l)*5:GOSUB 670' 
380 NEXT | 

390 : 

400 PRINT#1,H” 

410 PRINT#4 

420 : 


430 FOR!I=1TOL 

440 C=I:S=1:GOSUB 950 

450 X=0:Y =0:A$(l):GOSUB 800 
460 NEXT | 

470 : 

480 AS$=T$ 

490 C=3:S=2 :GOSUB 950 
500 X=30:Y=220 :GOSUB 890 
510 A$=S$ 

520 C=2:S=1 :GOSUB 950 

530 X= 200:Y = 206 :GOSUB 890 
540: 

550 PRINT#1,“H”:PRINT#4:PRINT#4:PRINT#4 
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BARGRAPH LISTING CONTINUED... 


553 PRINT#4:PRINT#4:PRINT#4 
554 GOSUB 1105 

555 OPEN7,6,7:PRINT#7 :REM RESET PLOTTER 
560 CLOSE4:CLOSE1:CLOSE2:CLOSE3:CLOSE7 
570 END 

580 : 

590 REM = = WRITE BOX = = 

600 X(I)=(I- 1)*36*2 +4 36:W = 36 

610 PRINT#1,"M”:X(I),0 

620 PRINT#1,“D”:X(I),H 

630 PRINT#1,“D”:X(I) + W,H 

640 PRINT#1,“D”:X(I) + W,0 

650 RETURN 

660 : 

670 REM = = FILL BOX == 

680 X(I)=(I —1)*36*2 + 36:W = 36 

690 PRINT#1,“M”:X(1).0 

700 FORJ=OTOH STEP 2 

710 PRINT#1,“D”:X(I) + W,J 

720 PRINT#1,"“D”:X(I) + W,J+1 

730 IF J+1> =H THEN 770 

740 PRINT#1,“D”:X(I),J +1 

750 PRINT#1,“D":X(I),J +2 

760 NEXT J 

770 RETURN - 

780 : 

790 REM = = CHARACTER Y = = 

800 PRINT#1,“M”:X Y:PRINT#4 

810 SS =(27S)*10 

820 FORM=1TO LEN(A$) 

830 PRINT#1,“M”:X(I) + 9,SS/5 

840 PRINT4,MID$(A$,M, 1) 

850 NEXT M 

860 PRINT#1,“M”;0,SS*4/5* LEN(A$) + SS*2+ Y:PRINT#4 
870 RETURN 

880 : 

890 REM = = CHARACTER X = = 

900 PRINT#1,“M”:X, Y 

920 PRINT#4,A$ 

930 PRINT#1,“M”:x, — Y + 40*S:PRINT#4:RETURN 
940 : 

950 REM = = COLOR,SIZE = = 

960 PRINT#2,C:PRINT#3,S ‘RETURN 

970 : 

980 PRINT CHR§$(147) 
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Bar Graph Listing Continued ... 


990 INPUT“ENTER MAIN TITLE”:T$ 

1000 INPUT“ENTER SUB TITLE’:S$ 

1010 INPUT“ENTER NUMBER OF DATA POINTS 1-6”;L 
1020 IF L<1 OR L>6 THEN GOTO 1010 
1030 FORI=1TOL 

1040 PRINT “ ’:PRINT“DATA POINT ”)| 
1050 INPUT“ENTER NAME 1-6 CHARS”: A$(I) 
1055 IF LEN(A$(1)) > 6 THEN GOTO 1050 
1060 INPUT“ENTER SIZE 0-40”; A(t) 

1070 IF A(l)< 0 OR Ail) > 40 THEN GOTO 1060 
1080 NEXT | 

1090 RETURN 

1100 : 

1105 PRINT#2,2 

1110 PRINT#4,“DATA POINTS..... : 

1120 FORI=1TOL 

1130 PRINT#4,A$(I),A(I) 

1140 NEXT I 

1150 PRINT#4:PRINT#4:PRINT#4 

1160 PRINT#4:PRINT#4:PRINT#4 

1170 RETURN 


READY. 
BAR CHART 


Leo 


BAR CHART 


mZO 
OEH 
mmx 4 
acon 
McHn 


HU 
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14. Complex Bar Chart 


100 REM ee 
110 REM * BAR GRAPH 2 * 
120 REM RRKKKKHKREK ERK KEK 
130 PRINT CHR$(147); 
~~ 140 T$=‘* PROJECTED SALES *” 


150 PRINT“ "TS 

160 OPEN4,6,0 ‘REM PRINT ASCII DATA 
170 OPEN1,6,1 :REM PLOT X,Y DATA 
180 OPEN2,6,2 ‘REM COLOR 

190 OPEN3,6,3 ‘REM CHAR SIZE 

200 OPEN44,6,4 -REM CHAR ROTATE 
210 OPEN5,6,5 “REM SCRIBE 


v7 212 PRINT#4:PRINT#4:PRINT#4, “COMPLEX BAR CHART” 
215 FOR |= 1 TO 5:PRINT#4:NEXT | 
220 C=1:S= 1:R=0:SC= 0:GOSUB1400:GOSUB1410 
230 PRINT#1,“H”:PRINT#H4 
240 : 
250 REM = = READ DATA = = 
260 READ M,N:DIM A$(M,N) 
270 FOR J=1TON:FOR l=1 TO M: READ AS(I,J): NEXT |: NEXT J 


280 FOR |= 1 TO M:TY$(I) =“ "+ AG(I,1) +5 °: 
NEXT I:YN = LEN(TY$(1)) : 
290 : 


300 REM = =XY AXIS == 

310 OX=50:W= YN*12:S= 10 

320 PRINT#1,"M”;OX,0 

330 PRINT#1,‘‘D”;OX + 370,0 

340 FOR |= OX TO OX +370 STEP 360/S 
350 PRINT#1,“M”:10 

360 PRINT#1,“D":1,5 

370 NEXT] 

380 PRINT#1,"“M”:OX,0 

390 PRINT#1,D’;OX,— W*M 

400 PRINT#1,“M’:0,20:PRINT#4 

410 : 

420 REM = = TITLE = = 

430 A$=T$ 

440 C=3:S =2:R= 1:GOSUB1400 

450 Y = 450:X = 40:GOSUB1690 

A460 : 

470 REM = = X SCALE = = 

480 T1$= “MILLIONS OF UNITS” 

490 C=3:S= 1:R=0:GOSUB1400 

500 L1=4:XO=12°L1 Ko 

510 PRINT#1,*M’’;120,X “PRINT#4,T1$ 
520 PRINT#1,“M’:0, — XO + 40:PRINT#4 
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Bar Graph 2 Listing Continued... 


530 : 

540 C= 1:R= 1:GOSUB1400 

550 XS =0.5:XM = 5.0 

560 FOR |= XS TO XM STEP xS 

570 TX$(l) = LEFTS(STRS(I + SGN(1)*0.00000001),L1) 
580 Y=1*36*24+ OX—40 

590 PRINT#1,“M”:0,12*L1:PRINT#H4 

600 FOR J=1TOL1 

610 PRINT#1,“M’:Y,8 

620 PRINT#4,MIDS(TX$(I),J,1) 

630 NEXT J 

640 PRINT#1,“M”:0,40:PRINT#4 

650 NEXT | 

660 PRINT#1,“M”;0,0:PRINT#4 

670 : 

680 REM = = Y SCALE = = 

690 C=0:S= 1:R= 1:GOSUB1400 

700 FOR l=1TO M:Y=OX- 20 

710 FORJ=1TOYN 

720 PRINT#1,“M”:Y,8 

730 PRINT#4,MID$(TY$(I),J,1) 

740 NEXT J 

750 NEXT! 

760 PRINT#1,“M’:0,60:PRINT#H4 

770 : 

780 REM = = BRAPH PRINT = = 

790 PRINT#1,“M”;0,W*M + 10:PRINT#4 

800 C=0:GOSUB1400 : 

810 FOR 1=1TOM:D(I)= VAL(AS(I,2))/1000000:NEXT | 
820 FOR i=1 TO M-A(l)= D(l):NEXT | 

830 GOSUB1280 ‘REM DATAQUEST 

840 C=2:GOSUB1400 

850 SC = 5:GOSUB1410 

860 FOR !=1 TO M:M(l)= VAL(AS$(I,4))/1000000:NEXT | 
870 FOR 1=1 TO M:A(l)= M(l):NEXT | 

880 GOSUB1280 7-REM MERRILL LYNCH 
890 SC = 0:GOSUB1410 

900 : 

910 REM = = COMMENT WRITING = = 

920 C=1:S= 1:R= 1:GOSUB1400 

930 A$=“D":OF = 20+ W/2— 10*(LEN(A$)/2):PRINT#1,“°M”: 
0, — OF:PRINT#4 

940 FOR |=1 TO M:Y = Di(t)*254 OX:GOSUB1440 
950 PRINT#1,“M";0,- W+ 12* LEN(A$) + 20:PRINT#4 
960 NEXT | 

970 PRINT#1,“M’:0,W*M + OF + 40:PRINT#4 

980 : 
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., 990 C=2:S=1:R= 1:GOSUB1400 
VK 1000 A$=“ML”:OF = 204 W/2-10*(LEN(A$)/2):PRINT#1,“M”: 
0, —- OF:PRINT#4 
1010 FORI=1TOM:Y= M(1)*21 + OX:GOSUB1440 
1020 PRINT#1,“M’’:0, —-W+ 12*LEN(A$) + 20:PRINT#4 
1030 NEXT | 
1040 PRINT#1,“M”:0,W*M 4 OF + 40:PRINT#4 
1050 : 
wr 1060 A$=“ D = DATAQUEST FORECAST” 
1070 C=0:R= 1:GOSUB1400 
1080 Y = 425:x = 60:GOSUB1600 
1090 : 
71100 A$="“ML = MERRILL LYNCH FORECAST” 
1110 C=2:R= 1:GOSUB1400 
1120 Y= 405:x = 60:GOSUB1600 
1130 : 
71140 A$= “NOTE: MERRILL LYNCH DID NOT FORECAST 
PAST 1983 ” 
1150 C=3:S=0:R= 1:GOSUB1400 
1160 Y= 18:X = 40:GOSUB1510 
1170 : 
71180 A$=“ BECAUSE THE MARKET IS EXPANDING 
VERY RAPIDLY” 
1190 C=3:S=0:R= 1:GOSUB1400 
1200 Y=8:X= 40:GOSUB1520 
1210 : 
1220 C= 1:S= 1:R=0:GOSUB1400 
1230 SC =0:GOSUB1410 
1233 PRINT#1,“M”; — 480, ~ 480 
1235 FOR|I=1ToO 5:PRINT#4:NEXT | 
1237 OPEN7,6,7 ‘REM RESET PLOTTER 
1239 PRINT#7 
1240 CLOSE1:CLOSE2:CLOSE3:CLOSE4:CLOSE44:CLOSES: 
CLOSE7 
1250 END 
1260 : 
1270 REM = = BARGRAPH = = 
1280 FORI=0TOM—1 
1290 PRINT#1,“M”:OX, — W*1— 20 
1300 IF A(l+ 1)>5 THEN 1360 
1310 PRINT#1,“D":Ox + A(l+ 1)*60, — W*It— 20 
1320 PRINT#1,“D’:OX + A(l + 1)*60, — W*(l+1)— 20 
1330 PRINT#1,“D”;OX, — W*(l+ 1)— 20 
1340 NEXT 
1350 RETURN 
1360 PRINT#1,“D”;400, — W*|— 20 
1370 PRINT#1,"M’:400, — W*(l+ 1)— 20:GOTO 1330 
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1380 : 


1390 
1400 
1410 


REM = = COLOR,SIZE,ROTATE,SCRIBE = = 
PRINT#2,C: PRINT#3,S:PRINT#44,R:RETURN 
PRINT#5,SC:RETURN 


1420 : 


1430 
1440 
1450 
=~ 1460 
1470 
1480 


REM = = GRAPH COMMENT = = 
FOR J=1 TO LEN(A$) 
PRINT#H1,"M’:Y,8 

PRINTH#4, /MIDS$(A$,J1) 

NEXT 

RETURN 


1490 : 


1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


REM = = SMALL CHARACTER = = 
PRINT#1,"M”:0, — X:PRINT#4 

FOR |=4 TO LEN(A$) 

PRINT#1,°M:Y,2 

PRINT#4,MID$(A$,I,1) 

NEXT I 

PRINT#1,““M”:0,8* LEN(A$) + X + 20:PRINT#H4 
RETURN 

PRINT#1,“M”;0, — X:PRINT#4 

FOR |= 1 TO LEN(AS) 

PRINT#1,“M”:Y,8 

PRINT#4 /MID$(A$,1,1) 

NEXT 

PRINT#1 “M":0,12* LEN(A$) + X + 40:PRINT#4 
RETURN 


1670 : 


1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 


REM = = BIG CHARACTER = = 
PRINT#1,‘‘M”;0, — X:PRINT#4 

FOR |= 1 TO LEN(A$) 

PRINT#1,“M’’;Y,20 

PRINT#4,MID$(A$,I,1) 

NEXT | 

PRINT#1,“M’;0,20* LEN(A$) + X + 80:PRINT#4 
RETURN 


1760 : 


1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 


REM = = BIGGEST CHARACTER = = 
PRINT#1“M”’:0, — X:PRINT#H4 

FOR |= 1 TO LEN(A$) 

PRINT#1,""M”;Y,40 

PRINT#4,MID$(A 11,1) 

NEXT | 

PRINT#1,“M”;0,40* LEN(A$) + X + 160:PRINT#4 
RETURN 


1850 : 


1860 


REM = =DATA AREA = = 
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1870 DATA 5,5 

1880 DATA 1981,1982,1 983, 1984, 1985 

1890 DATA 420000,840000,1345000,21 50000,3440000 
1900 DATA 168M, 366M,538M,869M, 1376M 

1910 DATA 0,1 250000,4000000,9999999 9999999 
1920 DATA“”,500M,1600M ,9999M,9999M 
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